home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
PowerLisp 2.01 FAT Folder.sit
/
PowerLisp 2.01 FAT Folder
/
PowerLisp 2.01 ƒ
/
Library
/
stdlib.lisp
< prev
next >
Wrap
Lisp/Scheme
|
1996-05-17
|
1KB
|
59 lines
;;;
;;; PowerLisp 2.0
;;; Copyright ゥ 1996 Roger Corman. All rights reserved.
;;;
;
; Lisp standard functions and macros to be loaded at startup.
;
(defun copyright ()
"Copyright ゥ 1995 Roger Corman. All rights reserved.")
(make-package :compiler)
;; this is only needed to load the standard library,
;; which then rolls this functionality into 'load'.
(defun load-binary (filename)
(let*
((loaded 0)
(stream (open filename :direction :input))
(*package* *package*) ;; bind these to themselves
(*readtable* *readtable*)
(*standard-output* *standard-output*))
(do* ((expr t) (symbol-table (make-array 500)))
((null expr)(close stream) loaded)
(setq expr (%read-code-from-stream stream symbol-table))
(if expr
(let ((result (funcall expr)))
(setq loaded (+ 1 loaded)))))))
(if cl::%powerpc-native
(setq *cl-compiled-library* ":library:cl.ppcl")
(setq *cl-compiled-library* ":library:cl.fasl"))
(if (probe-file *cl-compiled-library*)
(progn
(load-binary *cl-compiled-library*)
(print "Standard Library (binary) loaded."))
(if (probe-file ":library:cl.lisp")
(progn
(load ":library:cl.lisp")
(print "Standard Library loaded."))
(print "Could not find Standard Library.")))